regenerate or something

[clinton/website/site/unknownlamer.org.git] / Metaobject Protocols.html

diff --git a/Metaobject Protocols.html b/Metaobject Protocols.html
index 55187e3..f629002 100644 (file)
--- a/Metaobject Protocols.html
+++ b/Metaobject Protocols.html
@@ -274,11 +274,11 @@ enable selective modification of individual facets with minimal code.</p>
   (options) ...)
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">generic-name</span> ((parameter type) parameter ...)
-  <span class="emacs-face-string">"documentation string"</span>
+  <span class="emacs-face-doc">"documentation string"</span>
   body)
 
 (<span class="emacs-face-keyword">defgeneric</span> <span class="emacs-face-function-name">foo</span> (bar baz quux)
-  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Process the baz with the quux capacitor to make the
+  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Process the baz with the quux capacitor to make the
 foo widget fly into the sky at warp speed"</span>))
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">foo</span> ((bar example) baz (quux capacitor))
@@ -410,7 +410,7 @@ languages to expose a reflective MOP.</p>
 
 <pre class="src">
 (<span class="emacs-face-keyword">defgeneric</span> <span class="emacs-face-function-name">example-inspect</span> (instance)
-  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Simple object inspector using CLOS MOP"</span>))
+  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Simple object inspector using CLOS MOP"</span>))
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">example-inspect</span> ((instance t))
   (format t <span class="emacs-face-string">"Simple Object~% Value: ~S~%"</span> instance))
@@ -487,10 +487,10 @@ details to the program.</p>
 <span class="emacs-face-comment-delimiter">;;; </span><span class="emacs-face-comment">Metaclass
 </span>(<span class="emacs-face-keyword">defclass</span> <span class="emacs-face-type">observable</span> (standard-class)
   ()
-  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Metaclass for observable objects"</span>))
+  (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Metaclass for observable objects"</span>))
 
 (<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">compute-slots</span> ((class observable))
-  <span class="emacs-face-string">"Add a slot for storing observers to observable instances"</span>
+  <span class="emacs-face-doc">"Add a slot for storing observers to observable instances"</span>
   (cons (make-instance 'standard-effective-slot-definition
                        <span class="emacs-face-builtin">:name</span> 'observers
                        <span class="emacs-face-builtin">:initform</span> '(make-hash-table)
@@ -554,7 +554,7 @@ details to the program.</p>
                                      slot-name)
   (gethash slot-name (slot-value instance 'observers)))
 
-(<span class="emacs-face-keyword">defmethod</span> (<span class="emacs-face-function-name">setf slot-value-using-class)</span> <span class="emacs-face-builtin">:before</span> (new-value
+(<span class="emacs-face-keyword">defmethod</span> (<span class="emacs-face-function-name">setf slot-value-using-class</span>) <span class="emacs-face-builtin">:before</span> (new-value
                                                   (class observable)
                                                   instance
                                                   slot)
@@ -804,9 +804,7 @@ implementation as possible.</p>
     </a>
   </p>
 
-<p class="cke-footer">unknownlamer: I just asked a girl out to a greek tragedy
-LeebertLaptop: hmm
-LeebertLaptop: you on a date is a geek tragedy
+<p class="cke-footer">No, there's nothing here about X, so be quiet.
 </p>
 <p class="cke-timestamp">Last Modified:
     January 21, 2013</p>